home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson2 / Lesson2.dcr / 00141_click New Cust tabs.ls < prev    next >
Encoding:
Text File  |  2001-11-19  |  550 b   |  22 lines
  1. property FirstTarget, RestTarget
  2. global firstTimeNewCustomer
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #FirstTarget, [#default: EMPTY, #format: #string, #comment: "First Time Target:"])
  7.   addProp(description, #RestTarget, [#default: EMPTY, #format: #string, #comment: "Rerun Target:"])
  8.   return description
  9. end
  10.  
  11. on mouseDown me
  12.   if firstTimeNewCustomer = "TRUE" then
  13.     if FirstTarget <> EMPTY then
  14.       go(FirstTarget)
  15.     end if
  16.   else
  17.     if RestTarget <> EMPTY then
  18.       go(RestTarget)
  19.     end if
  20.   end if
  21. end
  22.